home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 8.1.c.dxr / 00015_stick to block.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  606 b   |  19 lines
  1. property spriteNum, pRegCompensatie, pAnimatiesprite, pLoc
  2.  
  3. on beginSprite me
  4.   pLoc = sprite(spriteNum).loc
  5.   pRegCompensatie = sprite(spriteNum).loc - point(sprite(pAnimatiesprite).left, sprite(pAnimatiesprite).top)
  6.   put pRegCompensatie
  7.   add(the actorList, me)
  8. end
  9.  
  10. on stepFrame me
  11.   sprite(spriteNum).loc = pRegCompensatie + point(sprite(pAnimatiesprite).left, sprite(pAnimatiesprite).top)
  12. end
  13.  
  14. on getPropertyDescriptionList me
  15.   propertyList = [:]
  16.   setaProp(propertyList, #pAnimatiesprite, [#comment: "Welke sprite moet ie aan vastzitten", #format: #integer, #default: 1])
  17.   return propertyList
  18. end
  19.